inherited AddressInfoForm: TAddressInfoForm
  Left = 177
  Top = 153
  Caption = #22320#22336#34180
  ClientWidth = 771
  OldCreateOrder = True
  OnShow = FormShow
  ExplicitWidth = 779
  ExplicitHeight = 480
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 29
    Height = 417
    ExplicitHeight = 424
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 771
    Height = 29
    Caption = 'ToolBar1'
    Images = ShareDataModule.ShareImageList
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object AddToolButton: TToolButton
      Left = 0
      Top = 0
      Action = AddCompanyInfoAction
    end
    object EditToolButton: TToolButton
      Left = 23
      Top = 0
      Action = EditCompanyInfoAction
    end
    object DeleteToolButton: TToolButton
      Left = 46
      Top = 0
      Action = DeleteCompanyInfoAction
    end
    object ToolButton3: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ViewToolButton: TToolButton
      Left = 77
      Top = 0
      Action = ViewCompanyInfoAction
    end
    object ToolButton1: TToolButton
      Left = 100
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 108
      Top = 0
      Action = MainForm.AddressQueryAction
    end
  end
  object wwDBGrid1: TDBGrid
    Left = 153
    Top = 29
    Width = 618
    Height = 417
    Align = alClient
    DataSource = CompanyDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = wwDBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #20844#21496#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Region'
        Title.Caption = #22320#21306
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BusinessProduct'
        Title.Caption = #32463#33829#20135#21697
        Width = 224
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Telephone'
        Title.Caption = #32852#31995#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Fax'
        Title.Caption = #20256#30495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HomePage'
        Title.Caption = #20027#39029
        Visible = True
      end>
  end
  object TypeDictwwDBComboBox: TDBComboBox
    Left = 576
    Top = 96
    Width = 121
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    Items.Strings = (
      #21378#21830#9'0'
      #20195#29702#21830#9'1')
    TabOrder = 2
    Visible = False
  end
  object RegionListBox: TListBox
    Left = 3
    Top = 29
    Width = 150
    Height = 417
    Align = alLeft
    ItemHeight = 12
    TabOrder = 3
    OnClick = RegionListBoxClick
  end
  object CompanyDataSource: TDataSource
    DataSet = CompanyQuery
    Left = 264
    Top = 56
  end
  object CompanyQuery: TADOQuery
    Connection = ShareDataModule.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from company where region='#39#21335#26124#39)
    Left = 296
    Top = 56
  end
  object RegionDataSource: TDataSource
    DataSet = RegionQuery
    Left = 40
    Top = 56
  end
  object RegionQuery: TADOQuery
    Connection = ShareDataModule.ADOConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select region, count(*)  from company group by region;')
    Left = 72
    Top = 56
  end
  object ActionList1: TActionList
    Images = ShareDataModule.ShareImageList
    Left = 176
    object AddCompanyInfoAction: TAction
      Category = 'CompanyMgr'
      Caption = #22686#21152#20844#21496#36164#26009
      Hint = #22686#21152#20844#21496#36164#26009
      ImageIndex = 0
      OnExecute = AddCompanyInfoActionExecute
    end
    object EditCompanyInfoAction: TAction
      Category = 'CompanyMgr'
      Caption = #20462#25913#20844#21496#36164#26009
      Hint = #20462#25913#20844#21496#36164#26009
      ImageIndex = 1
      OnExecute = EditCompanyInfoActionExecute
    end
    object DeleteCompanyInfoAction: TAction
      Category = 'CompanyMgr'
      Caption = #21024#38500#20844#21496#36164#26009
      Hint = #21024#38500#20844#21496#36164#26009
      ImageIndex = 2
      OnExecute = DeleteCompanyInfoActionExecute
    end
    object ViewCompanyInfoAction: TAction
      Category = 'CompanyMgr'
      Caption = #26597#30475#20844#21496#36164#26009
      Hint = #26597#30475#20844#21496#36164#26009
      ImageIndex = 5
      OnExecute = ViewCompanyInfoActionExecute
    end
    object AddressQueryAction: TAction
      Category = 'Address'
      Caption = #32463#38144#21830#26597#35810
      Hint = #32463#38144#21830#26597#35810
      OnExecute = AddressQueryActionExecute
    end
  end
end
